home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs53.d81 / 28may87s.pma / CXKYCODE.ASM < prev    next >
Assembly Source File  |  1979-12-31  |  4KB  |  172 lines
  1.     title    'CXKYCODE-  function and key def file   26 May 85'
  2.  
  3.  
  4.     maclib    cxequ
  5.  
  6. number$blks    equ    4        ; 256 byte blocks
  7. def$per$key    equ    4
  8. key$tbl$size    equ    11*8*def$per$key
  9. color$tbl$size    equ    16
  10.  
  11. ;
  12. ;    default Function keys and key definition
  13. ;
  14.     org    sys$key$area
  15.  
  16.         dw    ascii$tbl-2
  17.  
  18. msgtbl:        db    'F1',0
  19.         db    'F2',0
  20.         db    'dir',cr,0
  21.         db    'dir ',0
  22.         db    'F5',0
  23.         db    'F6',0
  24.         db    'F7',0
  25.         date
  26.         db    5,18h,cr,0    ; ^E ^X ^D
  27.         db    'F9',0
  28.         db    'F10',0
  29.         db    'F11',0
  30.         db    0f3h,0f3h,0f3h,0f3h,0f3h,0f3h,0f3h,0f3h,0f3h,0f3h
  31.         db    0f3h,0f3h,0f3h,0f3h,0f3h,0f3h,0f3h,0f3h,0f3h,0f3h,0
  32.         db    0f4h,0f4h,0f4h,0f4h,0f4h,0f4h,0f4h,0f4h,0f4h,0f4h
  33.         db    0f4h,0f4h,0f4h,0f4h,0f4h,0f4h,0f4h,0f4h,0f4h,0f4h,0
  34.         db    0f3h,0f3h,0f3h,0f3h,0
  35.         db    0f4h,0f4h,0f4h,0f4h,0
  36.         db    'F16',0
  37.         db    'F17',0
  38.         db    'F18',0
  39.         db    'F19',0
  40.         db    'F20',0
  41.         db    'F21',0
  42.         db    'F22',0
  43.         db    'F23',0
  44.         db    'F24',0
  45.         db    'F25',0
  46.         db    'F26',0
  47.         db    'F27',0
  48.         db    'F28',0
  49.         db    'F29',0
  50.         db    'F30',0
  51.         db    'F31',0
  52.         db    'Help ',0
  53.  
  54.  
  55. msg$size    equ    $-msgtbl
  56.  
  57.     rept    (number$blks*256)-msg$size-key$tbl$size-color$tbl$size
  58.         db    0ffh
  59.     endm
  60.  
  61.     page
  62.  
  63. ascii$tbl:
  64.     db    7fh,7fh,7fh,16h        ; INS DEL
  65.     db    0dh,0dh,0dh,0dh        ; RETURN
  66.     db    06h,06h,01h,01h        ; LF RT
  67.     db    86h,86h,87h,87h        ; F7 F8
  68.     db    80h,80h,81h,81h        ; F1 F2
  69.     db    82h,82h,83h,83h        ; F3 F4
  70.     db    84h,84h,85h,85h        ; F5 F6
  71.     db    17h,17h,17h,1ah        ; UP DOWN
  72.  
  73.     db    33h,33h,23h,0A2h    ; 3 #
  74.     db    77h,57h,57h,17h        ; W
  75.     db    61h,41h,41h,01h        ; A
  76.     db    34h,34h,24h,0A3h    ; 4 $
  77.     db    7ah,5ah,5ah,1ah        ; Z
  78.     db    73h,53h,53h,13h        ; S
  79.     db    65h,45h,45h,05h        ; E
  80.     db    00h,00h,00h,00h        ; (lf shift)
  81.  
  82.     db    35h,35h,25h,0A4h    ; 5 %
  83.     db    72h,52h,52h,12h        ; R
  84.     db    64h,44h,44h,04h        ; D
  85.     db    36h,36h,26h,0A5h    ; 6 &
  86.     db    63h,43h,43h,03h        ; C
  87.     db    66h,46h,46h,06h        ; F
  88.     db    74h,54h,54h,14h        ; T
  89.     db    78h,58h,58h,18h        ; X
  90.  
  91.     db    37h,37h,27h,0A6h    ; 7 '
  92.     db    79h,59h,59h,19h        ; Y
  93.     db    67h,47h,47h,07h        ; G
  94.     db    38h,38h,28h,0A7h    ; 8 (
  95.     db    62h,42h,42h,02h        ; B
  96.     db    68h,48h,48h,08h        ; H
  97.     db    75h,55h,55h,15h        ; U
  98.     db    76h,56h,56h,16h        ; V
  99.  
  100.     db    39h,39h,29h,00h        ; 9 )
  101.     db    69h,49h,49h,09h        ; I
  102.     db    6ah,4ah,4ah,0ah        ; J
  103.     db    30h,30h,30h,00h        ; 0
  104.     db    6dh,4dh,4dh,0dh        ; M
  105.     db    6bh,4bh,4bh,0bh        ; K
  106.     db    6fh,4fh,4fh,0fh        ; O
  107.     db    6eh,4eh,4eh,0eh        ; N
  108.  
  109.     db    2bh,2bh,2bh,00h        ; +
  110.     db    70h,50h,50h,10h        ; P
  111.     db    6ch,4ch,4ch,0ch        ; L
  112.     db    2dh,2dh,2dh,00h        ; -
  113.     db    2eh,2eh,3eh,00h        ; . >
  114.     db    3ah,3ah,5bh,7bh        ; : [ {
  115.     db    40h,40h,40h,00h        ; @
  116.     db    2ch,2ch,3ch,00h        ; , <
  117.  
  118.     db    23h,23h,23h,60h        ; pound `
  119.     db    2ah,2ah,2ah,00h        ; *
  120.     db    3bh,3bh,5dh,7dh        ; ; ] }
  121.     db    00h,00h,00h,0f5h    ; clear/home
  122.     db    00h,00h,00h,00h        ; (rt shift)
  123.     db    3dh,3dh,3dh,7eh        ; = ~
  124.     db    5eh,5eh,7ch,7ch        ; ^ PI |
  125.     db    2fh,2fh,3fh,5ch        ; / ? \
  126.  
  127.     db    31h,31h,21h,0A0h    ; 1
  128.     db    5fh,5fh,5fh,7fh        ; <-
  129.     db    09h,15h,30h,00h        ; (CONTROL) sound1 sound2
  130.     db    32h,32h,22h,0A1h    ; 2 "
  131.     db    20h,20h,20h,00h        ; Space
  132.     db    21h,20h,00h,00h        ; (Commodore) sound3
  133.     db    71h,51h,51h,11h        ; Q
  134.     db    00h,00h,00h,0f0h    ; RUN STOP
  135.  
  136.     db    9fh,9fh,9fh,9fh        ; /HELP/
  137.     db    38h,38h,38h,0B7h    ; /8/ 
  138.     db    35h,35h,35h,0B4h    ; /5/
  139.     db    09h,09h,09h,00h        ; /TAB/
  140.     db    32h,32h,32h,0B1h    ; /2/
  141.     db    34h,34h,34h,0B3h    ; /4/
  142.     db    37h,37h,37h,0B6h    ; /7/
  143.     db    31h,31h,31h,0B0h    ; /1/
  144.  
  145.     db    1bh,1bh,1bh,00h        ; /ESC/
  146.     db    2bh,2bh,2bh,0F7h    ; /+/   (select VT100)
  147.     db    2dh,2dh,2dh,0F6h    ; /-/    (select ADM31)
  148.     db    0Ah,0Ah,0Ah,0Ah        ; /Line Feed/
  149.     db    0dh,0dh,0dh,0ffh    ; /ENTR/
  150.     db    36h,36h,36h,0B5h    ; /6/
  151.     db    39h,39h,39h,00h        ; /9/
  152.     db    33h,33h,33h,0B2h    ; /3/
  153.  
  154.     db    00h,00h,00h,00h        ; /Alt/
  155.     db    30h,30h,30h,00h        ; /0/
  156.     db    2eh,2eh,2eh,00h        ; /./
  157.     db    05h,05h,05h,12h        ; /UP/
  158.     db    18h,18h,18h,03h        ; /DN/
  159.     db    13h,13h,13h,08dh    ; /LF/
  160.     db    04h,04h,04h,08eh    ; /RT/
  161.     db    0f1h,0f1h,0f1h,0f2h    ; /no scroll/
  162.  
  163. ;
  164. ;    logical color table (used with ESC ESC ESC char)
  165. ;                (where char is 50h to 7fh)
  166. ;
  167.     db    000h,011h,022h,033h
  168.     db    044h,055h,066h,077h
  169.     db    088h,099h,0aah,0bbh    
  170.     db    0cch,0ddh,0eeh,0ffh
  171.  
  172.